home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / TOOLS / 1B_DEMO / DEMO.1B < prev    next >
Text File  |  1998-03-14  |  9KB  |  354 lines
  1. 1ST-BASE INF V2.00-D
  2.  
  3. #DEVICE PRT1:
  4. #PRINTER Standard 24-pin Matrix
  5. DEVICE= PARALLEL
  6. INIT_X= 0.45
  7. INIT_Y= 2.00
  8. _CR= CR
  9. FWD_LF= ESC "J" n/180
  10. REV_LF= ESC "j" n/180
  11. PRINT_INIT$= ESC "@"
  12. PRINT_EXIT$=
  13. PAGE_INIT$=
  14. PAGE_EXIT$= FF
  15. CPI5$= ESC "!" 32
  16. CPI6$= ESC "!" 33
  17. CPI10$= ESC "!" 0
  18. CPI12$= ESC "!" 1
  19. CPI17$= ESC "!" 4
  20. CPI20$= ESC "!" 5
  21. LPI4$= ESC "3" 54
  22. LPI4_EXEC$= CR LF
  23. LPI6$= ESC "2"
  24. LPI6_EXEC$= CR LF
  25. LPI8$= ESC "0"
  26. LPI8_EXEC$= CR LF
  27. BOLD_ON$= ESC "E"
  28. BOLD_OFF$= ESC "F"
  29. UNDL_ON$= ESC "-" 1
  30. UNDL_OFF$= ESC "-" 0
  31. ITALIC_ON$= ESC "4"
  32. ITALIC_OFF$= ESC "5"
  33. DBLH_ON$= ESC "w" 1
  34. DBLH_OFF$= ESC "w" 0
  35. SUB_ON$= ESC "S" "1"
  36. SUB_OFF$= ESC "T"
  37. SUPER_ON$= ESC "S" "0"
  38. SUPER_OFF$= ESC "T"
  39. 1= ESC "R" 0 "|" BS "^"
  40. 2= ESC "R" 0 "|" BS "v"
  41. 3= "-" BS ">"
  42. 4= "<" BS "-"
  43. "#"= ESC "R" 0 "#"
  44. "$"= ESC "R" 0 "$"
  45. "@"= ESC "R" 0 "@"
  46. "["= ESC "R" 0 "["
  47. "\"= ESC "R" 0 "\"
  48. "]"= ESC "R" 0 "]"
  49. "^"= ESC "R" 0 "^"
  50. "`"= ESC "R" 0 "`"
  51. "{"= ESC "R" 0 "{"
  52. "|"= ESC "R" 0 "|"
  53. "}"= ESC "R" 0 "}"
  54. "~"= ESC "R" 0 "~"
  55. "Ç"= "C" BS " "
  56. "ü"= ESC "R" 2 $7D
  57. "é"= ESC "R" 1 $7B
  58. "â"= "a" BS ESC "R" 0 "^"
  59. "ä"= ESC "R" 2 $7B
  60. "à"= ESC "R" 1 $40
  61. "å"= ESC "R" 4 $7D
  62. "ç"= ESC "R" 1 $5C
  63. "ê"= "e" BS ESC "R" 0 "^"
  64. "ë"= "e" BS ESC "R" 1 $7E
  65. "è"= ESC "R" 1 $7D
  66. "ï"= "i" BS ESC "R" 1 $7E
  67. "î"= "i" BS ESC "R" 0 "^"
  68. "ì"= ESC "R" 6 $7E
  69. "Ä"= ESC "R" 2 $5B
  70. "Å"= ESC "R" 4 $5D
  71. "É"= ESC "R" 9 $40
  72. "æ"= ESC "R" 4 $7B
  73. "Æ"= ESC "R" 4 $5B
  74. "ô"= "o" BS ESC "R" 0 "^"
  75. "ö"= ESC "R" 2 $7C
  76. "ò"= ESC "R" 6 $7C
  77. "û"= "u" BS ESC "R" 0 "^"
  78. "ù"= ESC "R" 1 $7C
  79. "ÿ"= "y" BS ESC "R" 1 $7E
  80. "Ö"= ESC "R" 2 $5C
  81. "Ü"= ESC "R" 2 $5D
  82. "¢"= "c" BS ESC "R" 0 $7C
  83. "£"= ESC "R" 3 $23
  84. "¥"= ESC "R" BS $5C
  85. "ß"= ESC "R" 2 $7E
  86. "ƒ"= "f"
  87. "á"= "a" BS $27
  88. "í"= "i" BS $27
  89. "ó"= "o" BS $27
  90. "ú"= "u" BS $27
  91. "ñ"= ESC "R" 7 $7C
  92. "Ñ"= ESC "R" 7 $5C
  93. "ª"= "a" BS "_"
  94. "º"= "o" BS "_"
  95. "¿"= ESC "R" 7 $5D
  96. "¡"= ESC "R" 7 $5B
  97. "ã"= "a" BS ESC "R" 0 "~"
  98. "õ"= "o" BS ESC "R" 0 "~"
  99. "Ø"= ESC "R" 4 $5C
  100. "ø"= ESC "R" 4 $7C
  101. "À"= "A" BS "`"
  102. "Ã"= "A" BS "~"
  103. "Õ"= "O" BS "~"
  104. "¨"= ESC "R" 1 $7E
  105. "´"= $27
  106. "§"= ESC "R" 2 $40
  107. "∧"= "^"
  108. "β"= ESC "R" 2 $7E
  109. "≡"= "=" BS "_"
  110. "±"= "+" BS "_"
  111. "≥"= ">" BS "_"
  112. "≤"= "<" BS "_"
  113. "÷"= ":" BS "-"
  114. "°"= ESC "R" 1 $5B
  115. "ⁿ"= "n"
  116. "²"= "2"
  117. "³"= "3"
  118.  
  119. #FILE A,ADRESSEN,\ADRESSEN.1BF,139,0,256,0,1,3,4,5,3
  120. 8,1,67,1,0,10,22,Firma,Firma: ,,0
  121. 8,2,32,1,0,10,10,Name,Name: ,,0
  122. 51,2,24,1,0,10,8,Vorname,Vorname: ,,0
  123. 8,3,67,1,0,10,16,Straße,Straße: ,,0
  124. 8,4,8,1,0,10,6,PLZ,PLZ: ,,0
  125. 23,4,52,1,0,10,14,Ort,Ort: 
  126. 8,6,23,1,0,10,10,Tel,Tel: ,,0
  127. 8,7,23,1,0,10,10,Fax,Fax: ,,0
  128. 8,8,23,1,0,10,10,Btx,Btx: ,,0
  129. 45,6,30,1,0,10,10,Anrede1,Anrede1: ,,0
  130. 45,7,30,1,0,10,10,Anrede2,Anrede2: ,,0
  131. 45,8,30,1,0,10,10,Adreßtyp,Adreßtyp: ,,0
  132. 10,10,11,1,0,10,10,Kto,Konto-Nr: ,,0
  133. 27,10,12,1,0,10,10,BLZ,BLZ: ,,0
  134. 48,10,27,1,0,10,10,Bank,Bank: ,,0
  135. 1,13,71,4,0,10,24,Bemerkung,Bemerkungen,,0
  136.  
  137. #DEVICE PRT1:
  138. #REPORT Printer-Test
  139. IF RECORD_COUNT=1
  140. . <- Hier X/Y ausmessen und in INIT_X und INIT_Y eintragen.
  141. [@3,5]. <- Dies muß dann die Position X=3 cm und Y=5 cm sein.
  142. PRINT>
  143. Schriftarten:              [FIX_LMARGIN]. <- Hier linker Rand
  144. [CPI5$]Breitschrift 5 CPI
  145. [CPI6$]Hier 6 CPI-Schrift
  146. [CPI10$]Normale 10 CPI-Schrift (Pica)
  147. [CPI12$]Elite-Schrift 12 CPI
  148. [CPI17$]Engschrift 16.66 CPI (Pica Condensed)
  149. [CPI20$]Schmalschrift 20 CPI (Elite Condensed)
  150. PRINT>
  151. [FIX_LMARGIN;CPI10$]
  152. Attribute:
  153. Normal, [BOLD_ON$]Fett[BOLD_OFF$], [UNDL_ON$]Unterstrichen[UNDL_OFF$], [ITALIC_ON$]Kursiv[ITALIC_OFF$].
  154. (Basislinie)__[SUPER_ON$]Hochgestellt[SUPER_OFF$]__[SUB_ON$]Tiefgestellt[SUB_OFF$]__[DBLH_ON$]Doppelt hoch[DBLH_OFF$]__
  155. PRINT>
  156. Zeilenabstand:
  157. [@1,12;FIX_LMARGIN;LPI8$]__ 8 Zeilen/inch:
  158.    Zeile 1
  159.    Zeile 2
  160.    Zeile 3
  161.    Zeile 4
  162.    Zeile 5
  163.    Zeile 6
  164.    Zeile 7
  165. __ Zeile 8
  166. [@8,12;FIX_LMARGIN;LPI6$]__ 6 Zeilen/inch:
  167.    Zeile 1
  168.    Zeile 2
  169.    Zeile 3
  170.    Zeile 4
  171.    Zeile 5
  172. __ Zeile 6
  173. [@15,12;FIX_LMARGIN;LPI4$]__ 4 Zeilen/inch:
  174.    Zeile 1
  175.    Zeile 2
  176.    Zeile 3
  177. __ Zeile 4[LPI6$]
  178. PRINT>
  179. [FIX_LMARGIN]Zeichensatz:
  180.   ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?
  181. @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [CHR$(91)] \ ] ^ _
  182. ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ 
  183. Ç ü é â ä à å ç ê ë è ï î ì Ä Å É æ Æ ô ö ò û ù ÿ Ö Ü ¢ £ ¥ ß ƒ
  184. á í ó ú ñ Ñ ª º ¿ ⌐ ¬ ½ ¼ ¡ « » ã õ Ø ø œ Œ À Ã Õ ¨ ´ † ¶ © ® ™
  185. ij IJ א ב ג ד ה ו ז ח ט י כ ל מ נ ס ע פ צ ק ר ש ת ן ך ם ף ץ § ∧ ∞
  186. α β Γ π Σ σ µ τ Φ Θ Ω δ ∮ ϕ ∈ ∩ ≡ ± ≥ ≤ ⌠ ⌡ ÷ ≈ ° ∙ · √ ⁿ ² ³ ¯
  187. PRINT>
  188. Registrierungsdaten: [FIX_LMARGIN;SERIAL$]
  189. [USER1$]
  190. [USER2$]
  191. [USER3$]
  192. [USER4$]
  193. [USER5$]
  194. [PAGE_EXIT$];
  195. ENDIF
  196.  
  197. #REPORT Kurzmitteilung
  198. INPUT "Mitteilung: ||||||||||",M1$,M2$,M3$,M4$,M5$,M6$,M7$,M8$,M9$;M10$
  199. PRINT LPI4$;@4,6;FIX_LMARGIN;Firma$;@13;Tel$;"/";Fax$
  200. PRINT Vorname$;" ";Name$
  201. PRINT Straße$
  202. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  203. PRINT>
  204. PRINT>
  205. PRINT>
  206. PRINT CPI5$;"Kurzmitteilung";CPI10$
  207. PRINT>
  208. PRINT M1$
  209. PRINT M2$
  210. PRINT M3$
  211. PRINT M4$
  212. PRINT M5$
  213. PRINT M6$
  214. PRINT M7$
  215. PRINT M8$
  216. PRINT M9$
  217. PRINT M10$;PAGE_EXIT$;
  218.  
  219. #REPORT Telefonliste
  220. PRINT "Name";@12;"Telefon"
  221. PRINT "---------------------------------------------------------"
  222. DO 50
  223. PRINT Firma$;" ";Vorname$;" ";Name$;@12;Tel$
  224. LOOP
  225. PRINT PAGE_EXIT$;
  226.  
  227. #DEVICE MODEM:
  228. #REPORT Tel wählen
  229. PRINT "ATD";Tel$
  230. ALERT "[1][Hörer auflegen.][Ok|Abbruch]"
  231. PRINT "ATH"
  232.  
  233. #DEVICE KEYBD:
  234. #REPORT Briefkopf an WORDPLUS
  235. PRINT
  236. PRINT Firma$
  237. PRINT Vorname$;" ";Name$
  238. PRINT Straße$
  239. PRINT CHR$(17);PLZ$;" ";Ort$;CHR$(17)
  240. PRINT>
  241. PRINT "Sehr geehrte Damen und Herren,"
  242. PRINT>
  243. PRINT "Mit freundlichen Grüßen"
  244. PRINT USER1$
  245. PRINT STRING$(4,1);
  246.  
  247. #FILE B,ARTIKEL,\ARTIKEL.1BF,139,0,0,0,0,0,0,0,0
  248. 19,1,41,1,0,10,27,Artikel,Artikel: 
  249. 20,4,38,10,0,10,11,Hersteller,Hersteller: 
  250. 19,15,41,1,1,10,9,Preis,Preis: ,,1
  251. 19,16,41,1,1,10,9,VK_Preis,VK-Preis: ,,1,,Preis*1.14
  252.  
  253. #FILE C,AUFTRÄGE,\AUFTRAGE.1BF,139,0,256,0,0,0,0,0,0
  254. 8,1,67,1,0,266,23,Firma,Firma: ,1:Firma
  255. 8,2,29,1,0,10,13,Name,Name: ,1:Name
  256. 48,2,27,1,0,10,65535,Vorname,Vorname: ,1:Vorname
  257. 8,3,67,1,0,10,65535,Straße,Straße: ,1:Straße
  258. 8,4,12,1,0,10,6,PLZ,PLZ: ,1:PLZ
  259. 27,4,48,1,0,10,65535,Ort,Ort: ,1:Ort
  260. 0,6,5,1,1,17,65535,Anzahl1,Anzahl,,0
  261. 6,6,49,1,0,529,12,Artikel1,Artikel,8:Artikel
  262. 56,6,8,1,1,17,65535,Einzel1,Einzelpreis,8:Preis,1
  263. 66,6,9,1,1,17,65535,Gesamt1,Gesamtpreis,,3,,Anzahl1*Einzel1
  264. 0,7,5,1,1,18,65535,Anzahl2,,,0
  265. 6,7,49,1,0,530,15,Artikel2,,12:Artikel
  266. 56,7,8,1,1,18,65535,Einzel2,,12:Preis,1
  267. 66,7,9,1,1,10,65535,Gesamt2,,,3,,Anzahl2*Einzel2
  268. 0,8,5,1,1,18,65535,Anzahl3,,,0
  269. 6,8,49,1,0,530,65535,Artikel3,,16:Artikel
  270. 56,8,8,1,1,18,65535,Einzel3,,16:Preis,1
  271. 66,8,9,1,1,10,65535,Gesamt3,,,3,,Anzahl3*Einzel3
  272. 0,9,5,1,1,18,65535,Anzahl4,,,0
  273. 6,9,49,1,0,18,65535,Artikel4,,20:Artikel
  274. 56,9,8,1,1,18,65535,Einzel4,,20:Preis,1
  275. 66,9,9,1,1,10,65535,Gesamt4,,,3,,Anzahl4*Einzel4
  276. 0,10,5,1,1,18,65535,Anzahl5,,,0
  277. 6,10,49,1,0,530,65535,Artikel5,,24:Artikel
  278. 56,10,8,1,1,18,65535,Einzel5,,24:Preis,1
  279. 66,10,9,1,1,10,65535,Gesamt5,,,3,,Anzahl5*Einzel5
  280. 0,11,5,1,1,18,65535,Anzahl6,,,0
  281. 6,11,49,1,0,522,65535,Artikel6,,28:Artikel
  282. 56,11,8,1,1,10,65535,Einzel6,,28:Preis,1
  283. 66,11,9,1,1,10,65535,Gesamt6,,,3,,Anzahl6*Einzel6
  284. 0,12,5,1,1,10,65535,Anzahl7,,,0
  285. 6,12,49,1,0,522,65535,Artikel7,,32:Artikel
  286. 56,12,8,1,1,10,65535,Einzel7,,32:Preis,1
  287. 66,12,9,1,1,10,65535,Gesamt7,,,3,,Anzahl7*Einzel7
  288. 56,14,19,1,1,18,65535,Summe,Summe: ,,7,,Gesamt1+Gesamt2+Gesamt3+Gesamt4+Gesamt5+Gesamt6+Gesamt7
  289. 56,15,19,1,1,18,65535,MwSt,Mehrwertsteuer: ,,7,,Summe*0.14
  290. 56,16,19,1,1,18,65535,Total,Total: ,,7,,Summe+MwSt
  291.  
  292. #DEVICE PRT1:
  293. #REPORT Rechnung
  294. PRINT @3,6;FIX_LMARGIN;Firma$
  295. PRINT Vorname$;" ";Name$
  296. PRINT Straße$;LPI4$
  297. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  298. PRINT>
  299. PRINT @16;SYSDATE$
  300. PRINT>
  301. PRINT>
  302. PRINT>
  303. PRINT CPI5$;"RECHNUNG";CPI10$
  304. PRINT SUPER_ON$;"Wir lieferten Ihnen zu unseren Lieferbedingungen:";SUPER_OFF$
  305. PRINT>
  306. PRINT Anzahl1$;@4;Artikel1$;@15;"DM";STR$(Gesamt1,"##.###,##")
  307. PRINT Anzahl2$;@4;Artikel2$;@15;"DM";STR$(Gesamt2,"##.###,##")
  308. PRINT Anzahl3$;@4;Artikel3$;@15;"DM";STR$(Gesamt3,"##.###,##")
  309. PRINT Anzahl4$;@4;Artikel4$;@15;"DM";STR$(Gesamt4,"##.###,##")
  310. PRINT Anzahl5$;@4;Artikel5$;@15;"DM";STR$(Gesamt5,"##.###,##")
  311. PRINT @15;"-----------"
  312. PRINT @10;"Gesamtpreis";@15;"DM";STR$(Summe,"##.###,##")
  313. PRINT @10;"zzgl. 14% MwSt";@15;"DM";STR$(MwSt,"##.###,##")
  314. PRINT @15;"-----------"
  315. PRINT @10;"Rechnungsbetrag";@15;"DM";STR$(Total,"##.###,##")
  316. PRINT @15;"==========="
  317. PRINT>
  318. PRINT>
  319. Zahlbar sofort ohne jegliche Abzüge.
  320. Bankverbindung: PGA Hamburg, BLZ 20010020, Konto 19452-207
  321. PRINT PAGE_EXIT$;
  322.  
  323. #REPORT 1. Mahnung
  324. PRINT @3,6;FIX_LMARGIN;LPI4$;Firma$;@13;Tel$;"/";Fax$
  325. PRINT Vorname$;" ";Name$
  326. PRINT Straße$
  327. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  328. PRINT>
  329. PRINT>
  330. PRINT>
  331. PRINT>
  332. PRINT @16;SYSDATE$
  333. PRINT CPI5$;"1. Mahnung";CPI10$
  334. PRINT>
  335. PRINT>
  336. PRINT>
  337. Sehr geehrte Damen und Herren,
  338. PRINT>
  339. unsere Rechnung vom [Datum$] ist noch offen (Kopie in Anlage).
  340. Wir haben alle Zahlungseingänge bis zum [SYSDATE$] berücksichtigt.
  341. PRINT>
  342. Bitte veranlassen Sie umgehend die Zahlung, denn sonst müssen wir
  343. Ihnen gemäß unseren Zahlungsbedingungen Verzugszinsen berechnen.
  344. PRINT>
  345. Falls sich Ihre Zahlung mit diesem Schreiben überschnitten hat,
  346. betrachten Sie dieses bitte als gegenstandslos.
  347. PRINT>
  348. PRINT>
  349. PRINT>
  350. Mit freundlichen Grüßen
  351. PRINT>
  352. PRINT USER1$;PAGE_EXIT$;
  353.  
  354.